home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / COMMS / C028.ZIP / VUPLFILE.T < prev    next >
Text File  |  1990-01-31  |  288b  |  14 lines
  1.     echo "Uploading %item to VMS using DCL create command"
  2.     pat
  3.     if S>2400 pt1; ena -t
  4.     putw "set terminal/hostsync/noecho\r"
  5.     putw "create %item\r"
  6.     sleep 10
  7.     f -xHr %item
  8.     pat 1 "\044"
  9.     put "\032"
  10.     wait -f30
  11.     if !1 echo "create failed!"
  12.     putw "set terminal/echo\r"
  13.     dis -Htx
  14.